e (SETQ $PRINT-PROJECT-PERSON-SUMMARYS nil) e (SETQ $PRINT-PROJECT-MONTHLY nil) e (SETQ $PRINT-PROJECT-GS nil) read (salary in dsk (pro he)) exe (bis gs dsk (pro he)) read (tob in dsk (pro he)) project ((03 81)(09 81)) (tob out dsk (pro he))